home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / CLAIM.SRC < prev    next >
Text File  |  1990-11-03  |  14KB  |  682 lines
  1. ;\|
  2. ;CLAIM.SRC     Translated from CLAIM.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;TRANS    11:21:04 AM  30/ 9/90     |
  4.     define(TEMP.NUM|N|5||)
  5.     define(TFLAG|A|1||)
  6.     define(FERROR|N|2||)
  7.     define(MENU.HLDR|A|52||13)
  8.     define(CNTR|N|5||)
  9.     define(CNTR1|N|5||)
  10.     define(CNTR2|N|5||)
  11.     define(CNTR3|N|5||)
  12.     define(CNTR4|N|5||)
  13.     define(CNTR5|N|5||)
  14.     define(DUMMY|A|10||)
  15.     define(PASSWORD|A|3||)
  16.     define(CHOICE|N|2||)
  17.     define(TM|A|27||11)
  18.     define(C4|N|8||)
  19.     define(TD|S|8||)
  20.     define(YES.NO|A|1||)
  21.     define(NOM|A|15||)
  22.     define(C1|N|1||)
  23.     define(C2|N|1||)
  24.     define(C3|N|2||)
  25.     define(C6|N|6||)
  26.     define(TD6|N|6||)
  27.     define(XCNTR|N|3||)
  28.     define(XCNTR2|N|3||)
  29.     define(DUMMY2|A|30||)
  30.     define(RECPOS|A|4||)
  31.     define(TPOS|A|4||)
  32.     define(VE|A|1||)
  33.     trap(Q|G|REALEX)
  34. TRANS:
  35.     open(GPSETUP||0|)
  36.     open(CLAIMS||0|)
  37.     open(CLAIM_TR||0|)
  38.     find(B|HEADING|EXIT)
  39.     date(TD|G)
  40. STARTTRN:
  41.     mount(TRANS???|S)
  42.     gosub ARRAY
  43. START:
  44.     clrlne(1|21)
  45. AUTO:
  46.     trap(6|S|BUGS)
  47.     trap(I|D)
  48.     trap(N|D)
  49.     trap(S|I)
  50.     trap(F|D)
  51.     trap(G|D)
  52.     trap(B|D)
  53.     trap(M|D)
  54.     trap(Q|G|EXIT1)
  55.     trap(J|G|NOMGET)
  56.     trap(C|G|CLEARTRANS)
  57.     trap(1|G|UPDATEM)
  58.     trap(W|I)
  59. VIEW:
  60.     enter(CLAIM.DATE|||AUTO|N|Y|N|||N)
  61.     if CLAIM.DATE = (0) reent
  62.     gosub DATECHK
  63.     trap(1|I)
  64.     enter(NUM.CLAIMS||||N|N|N|||N)
  65.     if NUM.CLAIMS = (0) reent
  66.     enter(CLAIM.PAYEE||||Y|N|N|||N)
  67.     enter(CLAIM.DESC||||Y|N|N|||N)
  68. NOMINAL:
  69.     trap(7|G|REFMEN)
  70.     enter(CLAIM.ACCOUNT||||||||)
  71.     trap(7|I)
  72.     CLAIM.REF = (CLAIM.ACCOUNT)
  73.     find(M|CLAIM.REF|NOMINAL|N)
  74. SAVE:
  75.     if UP.CLAIM = ("Y") goto START
  76. CONT:
  77.     UP.CLAIM = ("X")
  78.     save(CLAIM_TR|Y|Y|AUTO)
  79.     TEMP.NUM = (0)
  80.     goto AUTO
  81. UPDATEM:
  82.     pmsg("  UPDATE ACCOUNTS-Y/N "|1|21|N|N|S|)
  83.     enter(YES.NO|"YN"|||Y|Y|N|24|21|N)
  84.     clrlne(1|21)
  85.     if YES.NO <> ("Y") goto AUTO
  86.     if UP.CLAIM <> ("") goto START
  87.     gosub TRAPEM
  88.     pmsg("PLEASE WAIT WHILE I UPDATE THE CLAIMS......"|15|21|N|N|S|)
  89.     TFLAG = ("")
  90.     transx(B)
  91.     TFLAG = ("X")
  92. TPSTART:
  93.     if TFLAG = ("") then transx(B)
  94.     UP.CLAIM = ("X")
  95.     find(M|UP.CLAIM|TPEND|)
  96.     TPOS =rcn(CLAIM_TR|G)
  97.     C3 =xmt(CLAIM.DATE)
  98.     CLAIM.REF = (CLAIM.ACCOUNT)
  99.     find(M|CLAIM.REF|ERROR|N)
  100. UPDT.ACS:
  101.     if CLAIM.AC <> ("T") then CLAIM.TOTAL = (CLAIM.EACH*NUM.CLAIMS)
  102.     CLAIM.MONTH[C3] = (CLAIM.TOTAL+CLAIM.MONTH[C3])
  103.     CLAIM.NUM[C3] = (CLAIM.NUM[C3]+NUM.CLAIMS)
  104.     TOT_CLAIMS = (TOT_CLAIMS+NUM.CLAIMS)
  105.     if CLAIM.TOTAL > (0) gosub CR
  106.     if CLAIM.TOTAL < (0) gosub DR
  107.     CLAIM.BAL = (CLAIM.BAL+CLAIM.TOTAL)
  108. SAVE.UPDAC:
  109.     save(CLAIMS|N|N)
  110.     find(M|CLAIM.REF|ERROR|)
  111.     if TYPE.OF.CLAIM = ("T") goto NEXT.TRANS
  112.     CLAIM.REF = (CLAIM.AC)
  113.     find(M|CLAIM.REF|NEXT.TRANS|N)
  114.     goto UPDT.ACS
  115. NEXT.TRANS:
  116.     TPOS =rcn(CLAIM_TR|S)
  117.     UP.CLAIM = ("Y")
  118.     save(CLAIM_TR|N|Y)
  119.     transx(E)
  120.     TFLAG = ("")
  121.     goto TPSTART
  122. TPEND:
  123.     transx(E)
  124.     trap(O|D)
  125.     gosub ARRAY
  126.     clrlne(1|21)
  127.     pmsg("UPDATING IS COMPLETE - YOU MAY NOW CONTINUE OR EXIT"|10|21|N|N|S|)
  128.     goto START
  129. DR:
  130.     DEBITS.TO.CLAIM = (DEBITS.TO.CLAIM+CLAIM.TOTAL)
  131.     ret
  132. CR:
  133.     CREDITS.TO.CLAM = (CREDITS.TO.CLAM+CLAIM.TOTAL)
  134.     ret
  135. EXITQ:
  136.     ret
  137. EXIT:
  138.     run("recmenu")
  139. ACCOUNT:
  140.     trap(C|G|CLEARAC)
  141.     trap(J|G|TRANS)
  142.     trap(S|G|SAVE.AC)
  143.     trap(1|I)
  144.     mount(ACCOUNT?|S)
  145.     gosub ARRAY
  146. START.AC:
  147.     CLAIM.REF = (NOM)
  148.     find(M|CLAIM.REF|START.AC2)
  149. START.AC2:
  150.     enter(CLAIM.NAME|||START.AC|Y|Y|N|||N)
  151.     enter(CLAIM.REF||||Y|N|N|||N)
  152.     TYPE.OF.CLAIM = ("N")
  153. PRORDER:
  154.     CLAIM.AC = ("TOT")
  155. BF:
  156.     enter(CLAIM.FORWARD||||N|N|N|||N)
  157.     if CLAIM.BAL > (0) goto ACYEAR
  158.     TOT_CLAIMS = (CLAIM.FORWARD)
  159. ACYEAR:
  160.     CLAIM.YEAR =mid(TD|7|2|)
  161.     enter(CLAIM.EACH||||N|N|N|||N)
  162. SAVE.AC:
  163.     save(CLAIMS|Y|Y|START.AC)
  164.     goto START.AC
  165. CLEARTRANS:
  166.     clr(CLAIM_TR|B)
  167.     TEMP.NUM = (0)
  168.     goto START
  169. CLEARAC:
  170.     clr(CLAIMS|B)
  171.     goto START.AC
  172. PRINTACS:
  173.     gosub TRAPEM
  174.     trap(I|I)
  175.     clrscr
  176.     C1 = (0)
  177.     mount(PRINTAC?|R|P)
  178.     pchr(P|4)
  179.     pchr(P|2)
  180.     pset(80|66|66)
  181.     find(B|CLAIM.REF|EXIT2|)
  182.     gosub LEADING
  183.     pfmt(3|||N|N|P)
  184.     pblnk(1)
  185. PRINTR:
  186.     if TYPE.OF.CLAIM = ("S") goto PRT.ST
  187.     if TYPE.OF.CLAIM = ("T") goto PRT.T
  188.     pfmt(5|||N|N|P)
  189. NEXTR:
  190.     find(N|CLAIMS|EXIT2|)
  191.     goto PRINTR
  192. PRT.ST:
  193.     pblnk(1)
  194.     pfmt(6|||N|N|)
  195.     pblnk(1)
  196.     goto NEXTR
  197. PRT.T:
  198.     pblnk(1)
  199.     pfmt(7|||N|N|P)
  200.     if C1 = (1) goto EXIT2
  201.     C1 = (1)
  202.     pvert(65)
  203.     pblnk(1)
  204.     gosub LEADING
  205.     pfmt(4|||N|N|P)
  206.     pblnk(1)
  207.     goto NEXTR
  208. LEADING:
  209.     pfmt(1|||N|N|)
  210.     pblnk(1)
  211.     pfmt(2|||N|N|)
  212.     pblnk(1)
  213.     ret
  214. NOMINALS:
  215.     gosub EXITQ
  216.     trap(I|I)
  217.     clrscr
  218.     mount(NOMINAL?|R|P)
  219.     pchr(P|4)
  220.     pchr(P|1)
  221.     pset(132|66|60)
  222.     find(B|CLAIM.REF|EXIT2)
  223.     pfmt(1|||N|N|)
  224. NEXTX:
  225.     CLAIM.ACCOUNT = (CLAIM.REF)
  226.     find(M|CLAIM.ACCOUNT|STARTX)
  227.     CLAIM.TOTAL = (CLAIM.EACH*NUM.CLAIMS)
  228.     gosub PAGE
  229. PRINTX:
  230.     pfmt(6|||N|N|)
  231.     goto FIND
  232. PAGE:
  233.     pfmt(2|||N|N|)
  234.     pfmt(3|||N|N|)
  235.     pfmt(4|||N|N|)
  236.     pfmt(5|||N|N|)
  237.     ret
  238. FIND:
  239.     CLAIM.ACCOUNT = (CLAIM.REF)
  240.     find(N|CLAIM_TR|PRINT2|)
  241.     if CLAIM.ACCOUNT <> (CLAIM.REF) goto PRINT2
  242.     goto PRINTX
  243. PRINT2:
  244.     pfmt(7|||N|N|)
  245.     pfmt(8|||N|N|)
  246.     pfmt(9|||N|N|)
  247.     pfmt(10|||N|N|)
  248.     pfmt(11|||N|N|)
  249.     pfmt(12|||N|N|)
  250.     goto STARTX
  251. STARTX:
  252.     find(N|CLAIMS|EXIT2|)
  253.     goto NEXTX
  254. ;CLEAR CURRENT ACCOUNTS|
  255. CLEARACS:
  256.     trap(I|I)
  257.     gosub TRAPEM
  258.     mount(CLEARAC?|S)
  259.     gosub ARRAY
  260.     enter(YES.NO|"YN"||CLEARACS|Y|Y|N|||N)
  261.     if YES.NO = ("N") goto EXIT
  262.     enter(C3|"0123456789"|||N|N|N|||N)
  263.     find(B|CLAIM.REF|EXIT2)
  264. TEST:
  265.     CLAIM.YEAR = (C3)
  266.     for(CNTR1|1|12|1)
  267.         {
  268.         CLAIM.MONTH[CNTR1] = (0)
  269.         CLAIM.NUM[CNTR1] = (0)
  270.         }
  271.     CLAIM.FORWARD = (0)
  272.     CLAIM.BAL = (0)
  273.     TOT_CLAIMS = (0)
  274.     DEBITS.TO.CLAIM = (0)
  275.     CREDITS.TO.CLAM = (0)
  276.     save(CLAIMS|N|Y)
  277. NEXT:
  278.     find(N|CLAIMS|END|)
  279.     goto TEST
  280. END:
  281.     close(CLAIM_TR)
  282.     DUMMY = ("CLAIM_TR")
  283.     inifle(DUMMY)
  284.     dos("FLAG F:\TAS\TASFILES\CLAIM_TR.M SRW")
  285.     open(CLAIM_TR||0|)
  286.     goto EXIT2
  287. EXIT1:
  288. RUN:
  289.     TM[1] = (" 1 - Claim Acs        01021")
  290.     TM[2] = (" 2 - Claim Entry      01032")
  291.     TM[3] = (" 3 - Clear claims     01043")
  292.     TM[4] = (" 4 - Print Claims     01054")
  293.     TM[5] = (" 5 - Claim Nom Prt    01065")
  294.     TM[6] = (" 6 - Pr.acct codes    01076")
  295.     TM[7] = (" 7 - Pr.trans list    01087")
  296.     TM[8] = (" 8 - EXIT             01098")
  297. MENU:
  298.     CLAIM.DATE = (0)
  299.     find(M|CLAIM.DATE|MENUXX|)
  300.     del(CLAIM_TR|N)
  301.     goto MENU
  302. MENUXX:
  303.     menu(20|16|10|23|0|TM|CHOICE|8|22|RUN||"GP CLAIMING PROGRAMS"|N)
  304.     on(CHOICE|G|ACCOUNT;STARTTRN;CLEARACS;PRINTACS;NOMINALS;PREFS;TLIST;EXIT|MENU)
  305. AUDIT:
  306.     ret
  307. ARRAY:
  308.     clr(CLAIMS|B)
  309.     clr(CLAIM_TR|B)
  310.     RECPOS = ("")
  311.     TPOS = ("")
  312.     ret
  313. DATECHK:
  314.     if CLAIM.DATE > (TD+28) gosub MESSAGE
  315.     if CLAIM.DATE < (TD-28) gosub MESSAGE
  316.     ret
  317. MESSAGE:
  318.     bell
  319.     pmsg("IS THIS DATE CORRECT?"|41|9|Y|Y|S|)
  320.     pmsg("                    "|41|9|N|N|S|)
  321.     bell
  322.     ret
  323. PREFS:
  324.     gosub EXITQ
  325.     run("clamREFS")
  326. TLIST:
  327.     gosub EXITQ
  328.     run("clamTRAN")
  329. PATIENT:
  330.     goto EXIT
  331. NOMGET:
  332.     NOM = (CLAIM.ACCOUNT)
  333.     goto ACCOUNT
  334. EXIT2:
  335.     run("CLAIM")
  336. EXITXXX:
  337.     run("recmenu")
  338. REFMEN:
  339. FILES:
  340.     MENU.HLDR[1] = (" A - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0101A")
  341.     MENU.HLDR[2] = (" B - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0102B")
  342.     MENU.HLDR[3] = (" C - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0103C")
  343.     MENU.HLDR[4] = (" D - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0104D")
  344.     MENU.HLDR[5] = (" E - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0105E")
  345.     MENU.HLDR[6] = (" F - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0106F")
  346.     MENU.HLDR[7] = (" G - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0107G")
  347.     MENU.HLDR[8] = (" H - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0108H")
  348.     MENU.HLDR[9] = (" I - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0109I")
  349.     MENU.HLDR[10] = (" J - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0110J")
  350.     MENU.HLDR[11] = (" K - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0111K")
  351.     MENU.HLDR[12] = (" L - xxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 0112L")
  352.     MENU.HLDR[13] = (" M - more                                      0113M")
  353.     CNTR = (1)
  354.     XCNTR = (1)
  355.     XCNTR2 = (0)
  356.     CNTR2 = (0)
  357.     find(B|CLAIM.REF||)
  358.     if CLAIM.REF = ("TOT") goto FILES.1X
  359. FILES.1:
  360.     mid(DUMMY|CNTR|10|CLAIM.REF|1)
  361.     mid(DUMMY2|XCNTR|30|CLAIM.NAME|2)
  362.     CNTR = (CNTR + 10)
  363.     XCNTR = (XCNTR+30)
  364.     XCNTR2 = (XCNTR2+1)
  365.     CNTR2 = (CNTR2 + 1)
  366. FILES.1X:
  367.     find(N|CLAIMS|FILES.2|)
  368.     if CLAIM.REF = ("TOT") goto FILES.1X
  369.     goto FILES.1
  370. FILES.2:
  371.     CNTR = (1)
  372.     XCNTR = (1)
  373. FILES.3:
  374.     CNTR1 = (1)
  375. FILES.4:
  376.     CLAIM.REF =mid(DUMMY|CNTR|10|1)
  377.     CLAIM.NAME =mid(DUMMY2|XCNTR|30|2)
  378.     mid(MENU.HLDR[CNTR1]|6|10|CLAIM.REF|)
  379.     mid(MENU.HLDR[CNTR1]|17|30|CLAIM.NAME|)
  380.     XCNTR2 = (XCNTR2-1)
  381.     XCNTR = (XCNTR+30)
  382.     CNTR2 = (CNTR2 - 1)
  383.     CNTR = (CNTR + 10)
  384.     if CNTR2 > (0) do
  385.         {
  386.         if CNTR1 < (12) do
  387.             {
  388.             CNTR1 = (CNTR1 + 1)
  389.             goto FILES.4
  390.             }
  391.         else
  392.             {
  393.             CNTR1 = (CNTR1 + 1)
  394.             goto FILES.5
  395.             }
  396.         }
  397. FILES.5:
  398.     CLAIM.REF = ("")
  399.     CNTR3 = (CNTR1 + 1)
  400.     CNTR5 = (1)
  401.     menu(10|15|CNTR3|48|0|MENU.HLDR|CNTR5|CNTR1|47|NOMINAL||"ACCOUNT REFERENCES"|N)
  402.     if CNTR5 < (13) do
  403.         {
  404.         CLAIM.ACCOUNT =mid(MENU.HLDR[CNTR5]|6|10|)
  405.         goto NOMINAL
  406.         }
  407.     goto FILES.3
  408. ERROR:
  409.     lferrn(FERROR)
  410.     pmsg(FERROR;"ABORTING TRANSACTION PROCESS - RESTART"|1|22|Y|N|S|)
  411.     clrlne(1|23)
  412.     transx(A)
  413.     run("recmenu")
  414. BUGS:
  415.     break
  416.     ret
  417. REALEX:
  418.     run("recmenu")
  419. TRAPEM:
  420.     trap(O|G|ERROR)
  421.     trap(C|I)
  422.     trap(J|I)
  423.     trap(D|I)
  424.     trap(F|I)
  425.     trap(B|I)
  426.     trap(N|I)
  427.     trap(G|I)
  428.     trap(M|I)
  429.     ret
  430. \STACCOUNT?
  431.                                CLAIM ACCOUNTS
  432.    ╔══════════════════════════════════════════════════════════════════════╗
  433.    ║                                                                      ║
  434.    ║ CLAIM.NAME:&                                   CLAIM.REF:&         < ║
  435.    ║  BRGHT.FWD:&                                   Year     :&           ║
  436.    ╚════════════╔══════════════════════════════════════════════╗══════════╝
  437.                 ║  Jan: &          &      Jul:&          &     ║
  438.                 ║  Feb: &          &      Aug:&          &     ║
  439.                 ║  Mar: &          &      Sep:&          &     ║
  440.                 ║  Apr: &          &      Oct:&          &     ║
  441.                 ║  May: &          &      Nov:&          &     ║
  442.                 ║  Jun: &          &      Dec:&          &     ║
  443.                 ║                                              ║
  444.                 ║  FPC Cost:&              TOTAL CLAIMS:&      ║
  445.                 ║                         CLAIM.BAL:&          ║
  446.                 ║                           CREDITS:&          ║
  447.                 ║                           DEBITS.:&          ║
  448.                 ╚══════════════════════════════════════════════╝
  449.                  F2 - Enter Claim                     Esc - Menu
  450.  
  451.  
  452.  
  453.  
  454.  
  455. \
  456. CLAIM.NAME
  457. CLAIM.REF
  458. CLAIM.FORWARD
  459. CLAIM.YEAR
  460. CLAIM.MONTH[1]
  461. CLAIM.NUM[1]
  462. CLAIM.MONTH[7]
  463. CLAIM.NUM[7]
  464. CLAIM.MONTH[2]
  465. CLAIM.NUM[2]
  466. CLAIM.MONTH[8]
  467. CLAIM.NUM[8]
  468. CLAIM.MONTH[3]
  469. CLAIM.NUM[3]
  470. CLAIM.MONTH[9]
  471. CLAIM.NUM[9]
  472. CLAIM.MONTH[4]
  473. CLAIM.NUM[4]
  474. CLAIM.MONTH[10]
  475. CLAIM.NUM[10]
  476. CLAIM.MONTH[5]
  477. CLAIM.NUM[5]
  478. CLAIM.MONTH[11]
  479. CLAIM.NUM[11]
  480. CLAIM.MONTH[6]
  481. CLAIM.NUM[6]
  482. CLAIM.MONTH[12]
  483. CLAIM.NUM[12]
  484. CLAIM.EACH
  485. TOT_CLAIMS
  486. CLAIM.BAL
  487. CREDITS.TO.CLAM
  488. DEBITS.TO.CLAIM
  489. \
  490. \STCLEARAC?
  491.  
  492.  
  493.  
  494.        ┌─────────────────────────────────────────────────────────────┐
  495.        │                                                             │
  496.        │                CLEAR ACCOUNTS FOR LAST YEAR                 │
  497.        ┌─────────────────────────────────────────────────────────────┐
  498.        │                                                             │
  499.        │  Only do this at the year end. All accounts will be cleared │
  500.        │                                                             │
  501.        │  to zero, so make sure you have copies of :                 │
  502.        │                                                             │
  503.        │                CLAIMS.M  CLAIM_TR.M                         │
  504.        │                                                             │
  505.        │            Enter new account year:&  (eg 89)                │
  506.        │                                                             │
  507.        │            To continue press Y or N to exit:&               │
  508.        └─────────────────────────────────────────────────────────────┘
  509.  
  510.  
  511.  
  512.  
  513.  
  514.  
  515. \
  516. C3
  517. YES.NO
  518. \
  519. \R NOMINAL?
  520. CLAIMS BY ACCOUNT TO:&          FOR &
  521. ACCOUNT:&                              CLAIM.REFERENCE:&
  522. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  523.   DATE.    NUMBER CLAIMED          DESCRIPTION.                 CLAIM/PAYEE
  524.   -----      -------               ------------                 -----------
  525. &           &               &                             &
  526.   CREDITS:  &            CLAIMS:&
  527.    DEBITS:  &            B/F   :&
  528.  
  529.             ----------
  530.   CLAIM.BAL:&
  531.             ::::::::::
  532.  
  533.  
  534.  
  535.  
  536.  
  537.  
  538.  
  539.  
  540.  
  541.  
  542.  
  543.  
  544.  
  545.  
  546.  
  547.  
  548.  
  549.  
  550.  
  551.  
  552.  
  553.  
  554.  
  555.  
  556.  
  557.  
  558.  
  559.  
  560.  
  561.  
  562.  
  563.  
  564.  
  565.  
  566.  
  567.  
  568. \
  569. TD
  570. HEADING
  571. CLAIM.NAME
  572. CLAIM.REF
  573. CLAIM.DATE
  574. NUM.CLAIMS
  575. CLAIM.DESC
  576. CLAIM.PAYEE
  577. CREDITS.TO.CLAM
  578. TOT_CLAIMS
  579. DEBITS.TO.CLAIM
  580. CLAIM.FORWARD
  581. CLAIM.BAL
  582. \
  583. \R PRINTAC?
  584. CLAIM REPORT TO:&
  585. &
  586.  
  587.  
  588. &                             -&         :     &           &
  589.      &                             -&         :          &           &
  590.           &                             -&         :               &           &
  591.  
  592.  
  593.  
  594.  
  595.  
  596.  
  597.  
  598.  
  599.  
  600.  
  601.  
  602.  
  603.  
  604.  
  605.  
  606.  
  607.  
  608.  
  609.  
  610.  
  611.  
  612.  
  613.  
  614.  
  615.  
  616.  
  617.  
  618.  
  619.  
  620.  
  621.  
  622.  
  623.  
  624.  
  625.  
  626.  
  627.  
  628.  
  629.  
  630.  
  631.  
  632. \
  633. TD
  634. HEADING
  635. CLAIM.NAME
  636. CLAIM.REF
  637. CLAIM.BAL
  638. TOT_CLAIMS
  639. CLAIM.NAME
  640. CLAIM.REF
  641. CLAIM.BAL
  642. TOT_CLAIMS
  643. CLAIM.NAME
  644. CLAIM.REF
  645. CLAIM.BAL
  646. TOT_CLAIMS
  647. \
  648. \STTRANS???
  649.  
  650.  
  651.  
  652.  
  653.  
  654.                                  CLAIM ENTRY SCREEN
  655.                    ╔════════════════════════════════════════════╗
  656.                    ║                                            ║
  657.                    ║ Claim Date:&       <                       ║
  658.                    ║ Num.Claims:&                               ║
  659.                    ║ Payee     :&                               ║
  660.                    ║ Descrip   :&                               ║
  661.                    ║ Account   :&         <                     ║
  662.                    ║            &<   End key to update claims   ║
  663.                    ╚════════════════════════════════════════════╝
  664.                     Esc - Exit             Jump - Claim Account
  665.  
  666.  
  667.  
  668.  
  669.  
  670.  
  671.  
  672.  
  673. \
  674. CLAIM.DATE
  675. NUM.CLAIMS
  676. CLAIM.PAYEE
  677. CLAIM.DESC
  678. CLAIM.ACCOUNT
  679. UP.CLAIM
  680. \
  681.  
  682.